ISsSSe^ 




« »j* Fiir Sinclair VC 20 C 64 Atari Tl 
S. JrS Apple Colour Genie Dragon Sharp 




HLS-SOFT 





Computer -Kont a kt kostel 
ietzt 3,50 DM - das isl 

Preiserhohung um 
1,10 DM Oder 45,8 %. 



/niitig, den Preis gleich 
auf 3,50 DM zu erhohen I 



zur Existenzsicherung von Computer -Kontakt 
einfach nicht mehr aus . Ca . BO Pfennig hat 
uns der Vertrieb bei einem Preis von 2,40 D(. 
fur jedes verkaufte Heft ausbezahlt. Das hat 
dann gerade fur die Satz- und Druckkosten 
gereicht, bis dann zum SchluB die Verluste 



ind Anwendunqsprograr 



(X 



Thomas Eberle 



SPECTRUM 
Soil- und Hardware 
DAS 

Textver arbeitu rig s- 
Syslem fur Ihren 
ZX Spectrum 48 K. 

INES 

DM 49.90 



Spectrum. Fordem Sie 

ULTRASOFT 

Kamperweg 167 
4000Dusseldorf12 
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CLUB-NACHRtCHTEN 



Nener Spectmm ORIC-1MTMOS- 
User-Club Benutzer in der 

Schweiz 

Hier in, Raum Heidenlieim/ 



Der TI Club in gjgjl 
Hechingen cuusiu 



Mifelkhkeil am Erfahnings- MdeO Genie ° Das sind urate Ziel«'K«iiK ™-«" "■■*™*6l.:li 

User Group "■ tawemawtosiM.iiiL ':: : 

vonHsniwart. Unna/Kamen L ™ CI > ™ n Us <™ ^ Us «. . - , 

wirsucBcoaucbKoouwtiu Newtusip rmtTips. Peeta und Atunanmesperre 

ausltadischen User-Clubs und ^ ailfgehoben 



necinjahrigcM, !,■!.■; 



ifcte HilfcHilfe 



to Geiale ejplodiert oc 



MTX-User-Clab 

Tl 99 User Group gegiflndet 

in Bremen z»«ii: ErbteungMusbBisth 



Kontakl: TH. [flaum S&ssSmjij) 

«, 09 ii/5i 3531 (abends) Tl-Compnter (e, V.) 

__ acc Humbug in Aachen 

sinra/iaia. »::,"'" gegrtndet 



SiUliu .': a«ik. fd;c:\. Liki... 



AffTe-l-F4UV-a'jfla 4, JWO B 



CLUB-NACHR1CHTEN 



Der Hamburger Colour Genie 
User Club 



nbar gib! b> doch ni 
Wer jcm aiimfl oder 



SLch^Hin^mi^EiZd". p™^rtcj*jrici«.^Xriirt- Apple Club bietet Modemdienst 



Tips fur Schreiberiinge 



Kleine Einstiesshilfe fur 
Schreiberiinge 
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Knobelecke a 


Jem noch einmal die -iehUiRien 


^nri^™ Und hei 


POEKnndGUSOBgesdlieM. 


jefeZeneneuticgcbcn. 






Die Legflsthenikt i ■•..- 
































Computer sagi. Fchlcr in Zeile 












Preis, Vsriag rail Orlsangabe 


N.-.ci/.'-ltel. kariertes Papier 


Sy.'i-ni hit! die ialsrhc Eingaoc 


S^e^SS?" 80 *' 








ben bikannl bilk!. ' I 














Spiele, die einen umfangrei- 


gen gill «H»R* . . 

■ :.■ 


SESBHfs 


Nicht eui flir Persnrwn mil 


SS3HJ3 








rattr-Kunukl aulge- 








nautttin.AisoNjme I'rtKS). 










mrtLiLi^lisi i-l!e Zc:U-n Isj-j: 


Die Ztffern sind auf cinera 


. ... . - ■ i 



Angabenmachenkami.laBtei- "*"" pro Zede nd™ die Halite. ,fc r Haupttasfirtui licgr. Lang! mOompHlersnllt. 
nc Zeile Irei, damit wii dicse So . ! ea < fnich ansWerk, da- z,^,^,,,. ■ 
Anjabcn nuch nachlragen t6n- m " dlE T| P ( '•""* «"•* dlE Reihen wc 









iCd™ swa tb&Jmt Wie vil wiener kommen umb 30 

nunnperger pfennink? 

Der schiilergerechte Wi! befindeD um im Jrtre te ^„ r _ L* ^ 
Computer 



Eger sein erstes Recheubuca Voilesungsmjtschi 



nata. Strichpunkten und Klam- ^\\ eiEi solchei Schiller ;u 



".-■iisMLiiliiiiikslinr 



nengehim, alkrdings ni 



ji>.i K fc Si: -t 



i7i;64fi-l?!6joii 



hi™ lehl am naa. ucr no- D „ [lra ,„. . . ... .. 

s gibt da einen pwteei on miB je« «ffl ^ ,,.,:,.,... t,. : , ; ,,., 

- * '^.^.u-,-^ 7„il 3 s kl. I^lhlli k-v,.hiiorn 'i-: ■ '■■■■■■ : ,.,.>>j ,,.,.. I ■"-=<■''' 



n b-ahickdKE. das loaj- lung, BASIGflefehle i 

Dcnk™., uitser Kereich isi iiimmtt Taslirn iu leg; 



I FRIT. ncninderOrisinalfassu 
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■ r TrS ■■"■■■■■■■■■ SnSj,r e m»Hri'bk-n 

I JklBUCHBESPRECHUNG g^f" "*"' 1L l " 



Spiele fur lhren 
ZX-Spectnun 

von Peter Shaw 
121 Seiten, DM 14, 
Max Hueber-Verlag, 
"" 5 Ismaning 
ISBN 3-19-008213-8 




BUCHER in 



TI-99 Tips & Tricks 



von Karl P. Schwinn 
305Seiten,49,-DM 
Verlag Data 
ISBN 3-891)1 




von Andreas Dripke 

146Seilen, 38,- DM 

Verlag Interface Age 

Miincrien 

ISBN 3-88986-00(1-1 



BUCHER 



Die grofie Basic Referenztabelle 



der 51 Dialekte 




Apple II Pascal 



von Arthur Luehrmann 
und Herbert Peckham 
te-wi Verlag MiiDchen 
544 Seiten, DM 59,- 
[SBN 3-921803-04-7 
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SPIEL-REVIEWS a 



NpjIpE spiele im test S 



trfolereichem AbsdiluB 



Fort Apocalypse s ESSi£ 




""""£ KKSS8SSS Blue Max 

mM^H ■■■■■^k 

^^^Zi^^^^H ^^1 irf.t ,^-. ,11, Milt 1, . < t f 



at 



nn am AusguagspUEl 


n^m- 


™^h be J n « 


Zu Beginn to Spi E 


*J*jJ2 


fo'tost/SSi 








riaufeinfacheibiw 


toAn- 


™fi !h!d *" ™ 




CnWKortrttiMK 






SPIEL-REVIEWS a 


WJ* — — — .— 


tX'aSwiSfe! 




Chariot Race 


















■.i^icincincniiich- 


*■££&££?■" **" 




Sch!efl;ieie si, id alle BrQk- 
kcn, Gcbiiiidc. (cir: 


P = fdndlicliet, Flu^u). 


-15 


"Siissri 2sE5ss 


gehit-! Von Zeit zu Zeit mi& 

sen fnlgencie ^lel.- .i' i t "M! ;•■;.■ 


W - WindfDktar 


abjtbild 


r"rs a ™SE-„, ,., 
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SPIEL-REVIEWS .4 



Tarnsman of Gor 

Ein erstflunlkhcs 32 K Adventure fdr das 



• .;vi!i\;- i i -■ ■-■ .niL-ii fj: n.-r. 7\ 
Spectrum crhaJlliciV 


nicto, win das FraiuU 


Olo£fW,n 

Soflvjaie ■ Hardware ■ Sense 


™ r-Xyl-onic-Pulse-T 
am Hintmel arjfrwdi 
»Chcmper» bedrohi. 


AjfdemWnkSzr 
VIDEO B£Mf£unOTRS-eO. 


find=D sirtl am Under, n 
GcsrtiwindiBkeil von 1 




SPIEL-REVIEWS 



Robopods 



Fiii Spid fur den TI 99/4A 




■ . ■ . ■ 


Trashman 


Die Cirafdt is! in ditssm Pro- 


rirajunddicMOsln: to . 


Fur den ZX Spectrum mil 48K 




SOVI'.;E(Neu]ing)-5Ro bo- 
pods, EXPERIENCED (Ertah- 
reneri - 6 Robopods, MASTER 


Kasstllcn-EinlCBCi als Tittlbild schicfci, in der >.r einr luraege- 
stilBtrcchl aucn eiac pod*, bene Anzalil MliTOonoeo lecrtti 

diese Zmammenstcllune i:n Milt? liurch cine SlraBe geleill; 
Vorziictei! fiir die Qijalitaldes rcchls uod lints davon bofiodsn 

i^ein. l>ei dem I'rogramni hort sin Ab&illb dialler, der 


s= 


sinniiJ - 9 Robopods, 


SpielerianI). EnLdaontaimdas 
Spiel fttttuletwerden. 
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SPIEL-REVIEWS 



■.'I vf.Hi: Niuii- Nachsciilagew 






Lemen Sie das ZX 81 g£Ss ,-£:, „„', SS*£5S!tSX 
ROM verstehen ™ 



von Ian Logan 

188 Seilen, DM 32,- 

Birkhauser Verlae, 

Basel 

ISBN 3-7643-1583-0 
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PROGRAMME 



SOGO 

FurdenTI99/4A rSpielfel 



Superhirn 



Fur den VC !0 in der Grandv 



den C 64 [esgibtlO 



loglictikci- betieabspckheni(iikh[iniPT 

ten). Uie AnrwnrtzeitdesCom- gramm cntballcn). Dazu wi] 

puters liegl bei ca, 100 Sekiin- das F-'eld FL, die AnubJ di 

Da= Spiel erklari sich Ziige (Variable T) und Flag 




™. 












R 


$%&*"*"* 


Farben m an 
































Q(L) 


Spurt die eleicbe p 

Positional : Spie 
Farbzahl : Spieler 




¥(0 


p*Ss^h| P °C™ 














M(B) 


,DS zSichSkettm ^" 


feMaZC 


B.C.IX. 


IN Lsulvar.ablen (tnehi 


acb verwendet) 


Wlchllje 


HAM-Adr»HHi 




!14 


£&*£«» 


£&!£& 


m 


Crrfefflrmomentan 





Sie Sndendie Programmlistingsfur 



CompulerKontakMI 



PROGRAMME 



Docken ■ 




3D-LABY fur den ATARI 


lem'we'eil' dcm^RAHK "l 








■ ~-*H> BYTES) und 




3IMABY ISufl >uf >ll«i II1KW, 






48K. Ej IwnfillKI eldea Slain* 


sE,!EEJ! i " fc " k,,tai * 


^X"*^"^^ 
















































sicm.il dargeslelli. ai*<> .iUn ilcr 




Prognnm-EiUinnB 




Sidil tics Spiders, ^.-! m:!i im 








fnganen lielindel. 








Zfel da Spiels is es, mil 
mOglicHsl wenig SchritiiTi .Dm 


JrLT^kTl^S. kZ 


NUMBEMCUmX Zei- 


. ■ .■ ■.: .■■■.:■. 










^Sna^i^'iiSTtew 11 




gg*% A$ enfliaJ[ d(e j^ 


Bildsdiirnicdiioi mil POKE 








SiS ""SjS S; 
















*fsSS™i" £i '^u"^ 


s^iim* 1 "* 61 " ten * B ' 6 


Wegc des Ingancns bilden . 


>. i,':iML:-.l., ; || L t. da sonal ER- 




Das Program™ enthiill kei»e 


Zpiie 20; BiLdschiim zum 






CONTROL-Zeichen, die 






man per Kaupfdru.-fc (i-tuer- 


REM-Zeilen Conner, weggelas- 


10m 


Tl»™Tta™l 



Memory Fmd eD vc2o = 

6 PRINT'GESPIELT. flUF DIESEN- 4 

7 PRINT-KHRTEN SIM) VER3CH1E-" 4 
B PRINT-DEhC SYMBOLE HBGEBIL-" 4 

13 PRINT'GEFUNCEN HrtBEN, ■ g 

16 PRINTTJUERFEN S1E NOCHMfIL - s 

IBB H1MP*(4£] ,B(42) ,S!SP) ,P(SP) .PK(SP> 5 

38B FORI-ITOBIFORJ=1T01 3 

313 fiEKTKlPRINTlWKTJ 5 
31B IFI-ITHEP^RINT- 1 £ 3 4 3 B 7" 5 

318 IFI -3THENPR1NT" IS IB 1? IB 19 £B £1' 5 
313 lF1^47«Eh*'RIrJT''a£ £3 £4 £3 £S £7 ES- 5 
3£B ]FI=3THENPRINT"£S 3B 31 3£ 33 34 33- 3 
3E1 1FI=6THEW>RINT' , 3S 37 33 33 40 41 4E- 3 
3££ IF WTHENPRIW43 44 43 4S 47 4B 43- 1 


8 1FY"1THEN51'4 

£ IFKR«STHEN1NPUT"£ KftRTE -IBS 

3 IFKR^lflMlSl >42THEN3B1 

5 IFKRMAM)KO(Si:> = l~rwEN301 
G 1FKR=2AM)K0IS£)"]THEN3B2 
7 IFKR=BHHISl"S£THEtCBS 

4 IFKROlTHENIhPUT'liHTERsl EM3E-S "100 

E print-eim phhb gefumjeni" 

5 GOTOB50 
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Saulendiagramme 




31 
32 


FOR b=5 TO z+4 

FOR -c=b+l TO z+4 


1 REM Sri 


LEND 1 AGRAMME 


33 


IF aCb^aXc) THEN GO TO 3 






ht ba 




7 






kc Hltrnann 


1933 


34 


LET "**atb^ 












LETT s/.bj=a-:.::;. 


3 REM ** Farbe 


■JefiT.- 






LET afeiwd 


4 BORDER 1 


PAPER 1 




37 


NEXT c 


5 INK ?■■ CLEAR 






33 


NEXT b 












LET b=5 


7 rem ** B 








. 40 
42 


LET f=14'4/-a<:b> 










REM ** Fa.rbsn definition ** 






' : "' : d H 




43 


BORDER 0^ PAPER 
INK ?• CLS 


«f L»9*j z.B." 








45 
46 
47 
43 
45? 


PAUSE 26 

REM. ** Grafik erst«U«n ** 

FOR i=5 TO 3+4 

FOR 3=27 TO <a< n-10>*fi+27 


19 PRINT RT 






Use Ri" 


m 

51 

32 
53 
54 

55 
56 
57 
53 

60 


INK 7-- PLOT MS<i~5>.» 

DRAW 15.8 

DRALJ INK 3)6-4 

NEXT a 

&RRU INK 7;-15.6 

DRAW INK ?;-6,-4 

NEXT i 

REM %% IJer-te ausflebwj ** 
FOR b-15 TO 24 

IF L.EN 3TP* <.3'..h->r;-2. THEN 






; INVER 


SE U u 


GO TO 66 


BITTE DRuCKEN 


"IE 


EINE TA 


STE. " 


61 
62 
63 

64 

66 


NEXT b 

FOR ti=!5 TO £4 

PRINT FIT 15.3*<b-15>ia(b? 

NEXT b 

CO TO 71 

FOP b=15 TO 24 STEP 2 








j "ftnzah 


67 
68 


PRINT AT !9.3-*< b- ] ■=; ■■ : 3 .-f. . 
PRINT AT 29,3*<b-14>:a.Cb+l) 
NEXT b 






IS THEN 




70 
71 


REM ** Me-nu^fnSabe ** 


19 PRINT AT 








73 
73 

74 
75 


INK 5 

PRINT AT 21,0: INVERSE 1;" 

HEME GRAF IK EPSTELLEN 
PAUSE 106 
PRINT AT 21,8) INVERSE 1;" 


23 FOR i=5 1 








<2 

76 
77 


GRAFIK APSPEKAFRU 
PfiUSE 199 
PRINT AT 21,0; INVERSE 1;" 


25 LET ai i >= 








76 

79 


GRAFIK AIJSDPUCKEN 
PA'JI.E-: 103 
LET *!p=INKEYS , 


28 NEXT i 








m 


IF ■=«=»» THEN GO TO 71 








32 


REM ** Befehl a«afOhrc« ■#* 


36 REM ** Sc 








84 
35 


IF e*=''l" THEN GO TO 87 
IF e«= , '2" THEN GO TO 88 
IF e*B»3" THEN GO TO 93 



ZX SPECTRUM za 



S6 GO TO 71 




I.PCi READ b 


87 CL3 i INK 7= GO TO IS 




161 POKE USB 3*+a.!-. 


SS FRINT HT 21,6; INK 7; "U 




im NFtfT a 






193 NEXT e 


*'=> fUPMT RT 0.1.5;*.$ 




104 PATH "a",4a J a,5S.4..6SH.6:=:-eo 


90 PRINT AT 21. .0; "^ 






91 =WP s*SGKE£N* 

'^ GO TO 71 




106 PHTR "tr.", 40, 9.56,68.-68*68, 5 














as REM Tt. IJDG *i>-,l.es.ie-n ** 






■3r". SF.STCiRE 104 






S? FOR: C<=| TO 5 






98 READ a$ 




HH G0 TO 1 


99 FOR *b0 TO 7 







GroBe Buchstaben 



GR0S5E BUCHSTABEN 



9900 REM CROSSE BUCHSTABEN 
99B1 REM fusr Spectr-u.ru 16K/48K 
391*3 LET 38il«r=l< LET sPalte=l 
9911 LET tS*"GROSSE BUCHSTFlBEN" 
991S GO SUB 9936 
9928 STOP 

9930 REM UNTERPRDGRRMM 

9931 L£T*lMrrttMPl.i LET ho*he«.5 

9933 IF sPslte+LEN t*>32 THEM LET t*=t*< TO 32-sPaltffJ 

9940 LET x-sP*lte+16383+32*Czeile>-56*INT (zeUe'S)) 

9950 LET Mich*»n=P£EK 23606+256*PEEK 23607 

9955 LET f=(Z»ili>7 OR iffil*=15) 

9960 FOR i'lMTMum TO LEN t* 

9965 LET a-zeicheYi+8*C0DE t« i > 

9970 LET x=x+lMrr«um 

9975 FOR J»0 TO 15 

9980 POKE K+256*J-(2816-1792*f M 

9985 NEXT J' NEXT i 

9990 RETURN 



j>7>.PEEK C* 



j*rioehe> 
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Sinclair's Spectrum 
und die Farben 



X Sl»c- fik-Symbols 



FflRBERZEUGUNG 

eefi BORDER 0: PfiPEP ?-■ INK &; 

S 

005 REM 

ERKLRERUNG 



seie print •' 


■ :■.:.:.. . ■■ :..-■ ■■ 


ERMOEG - 


LICHT IHHEH DPS 


MISCHEN 


VFPSCHIEDENER IN 


K- UND 


PRPER - FRRBEN, 


JM DfiDURCH 


HEUE FHRBTOEHE Z 


U EPHRLTEN. 





■RIHT 



JEDE BELIEF) I GE i'OMB 
MOEGLICH, PURCH BRI 
LflSSEM SICH LJEITERE 
2IELEN I" 

:■■' SIE E1NFR 



INRTION 1ST 
GHT RN/RUS 

EFFEKTE ER- 
8030 PRINT ■ 

CH RUS. IJRS IHNEN GEP.RDE EINFRE 
l_LT UND LR3SEN SIE SICH VON 

DEM ERi-jilC - MIS MEBERRRSCHEN !" 
8049 PRINT INVERSE 1,""'BITTE 
IPGENDEINE TRSTE DRUECKEN!" 
3059 PRUSE 0, CLS 

8999 REM 

CHfiRRCTER DEFINIEREN 

9000 FOR s*I TO ? 

■i ;:■ : - : r ■■■--■- :> ■:■? !:■ 
9030 DRTR 255.0,255.0,255,0-255, 



" RT 5, 10; "PRPER 



9103 PRINT RT 7,10;"INK = ";w 

9104 PRINT RT 9, 10; "BRIGHT ■ '■ , 1 

9105 PRINT RT 12, 10; "ERGEBNIS= ,l i 
BRIGHT l.i PAPER q; I UK WJ "SMafi 

9106 PRINT INVERSE 1 ; RT 20,0;" 
BITTE IJREHLEN SIE ■ 

INPUT "PRPER ? ";qj" INK ? ";u; 
" BRIGHT 7 ";1 

910? IF q<0 OR 4>7 THEN GO TG 9 
10fi 

9103 IF u<0 OR u >7 THEN GO TO 9 
106 
9109 IF 1<9 OR I>1 THEN GO TO 9 



EPGEBNIS 

i .7 pf-'i: ■ Hi! !■ - '!■ I.!-': 

VriH 1HHEN GEMISCHTE FPPP.KnM 

R1.HPn.ON! 
9120 FOR s=3 TO 21 

I t ' J H T ' FHPER q; I 

!■»!;' "dd'idddddddd'idddddddddda'iC'l 
liaddda" 
9140 NEXT 5 
9150 PRINT #1: INVERSE lj" 

TRSTE DRUECKEN 
Stfij PRIJSE 
919t3 GO TO 9109 

9200 srve "farbmisch" line 1 



,Si£TiiHI£rJ 

SlCtl RLSO VON £"/■ 

SEWJSreN B»BM 

VERffeL&r ,'? 
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Code-Knacker 

Ein bilfreiches Utility Kir den Sinclair ZX Spec: 



33im«! 




U" 


CODE - KNACKER 


rr:t 


FOR h c 1 T I 2521 ■■ READ 




:?>* OATH 175,55,221,33,16*127,2 




DATEN-RUSGHBE 


IWamra 


89 PRINT AT 10,3.1 "STfiRTfl[>RESSE 




: .", INVERSE :- :PEFK ■ b+! 1: '+25i? 




*PEEK ■rfe+14> 




99 PRINT RT 12. 3; "PROGRAM ML A EN 




GE= ", INVERSE 1, PEEK ?b+ 11 >+25e 




*FFEK fb+12>J" BYTES" 


vara Spec- 


190 PRINT AT 28,e;"Fuer <tevi nae 




chsten He^rier bitte i i"?ondo i-ne T 








11.0 PRUSE 




1.20 RUN 



1st Textverarbeitung mit 
einem Homecomputer moglich? 









sichtlich aufgebaiiL Das kann 




■ . ■ .:...-■ \i- V, 




dizu (Ilium, dafi cltr Eicslcigcr 




wenckr ieilweise recht prafes- 


Sinclair ZX SpecLrurr. 14S K- 














!tcii sicls hierbei ura >.<AS- 
















tBanSonwats.ObtriJjcscsPru- 












Dta Programm 




























iruU ..T ASWORD TWO* lller- 




lsa, tinrm kurzen BAS EC-Li SI 










bar jeder Anwen- 


um die MogLidikElcTi cini-s 




■ ■"■ , " 1 ' I' 11 "' ''1 ■ " 



Computet Kontakt 1( 



ZX SPECTRUM 




ZX SPECTRUM 



Zusatz-Tastatur 
fur den Sinclair ZX Spectrum 






Druckerinterface ZX LPRINT m 

Fur den ZX-Spectrum 



, : : : : ^ < ' ": ■ r : ^ ■ 



^^^^■^^ 


LPRINT iniiialisieil. Dan 




rouU man din- ] 




WwwWiHp' 


C5 zu to ha,. Z Um BcWn 


nWj^nwiTiT «**» 


ISInEe^B^mZ 










DRAGON 2b 



Computer Kontakt 10/84 



DRAGON 28 





Hatten Sie's gern Romisch? 

Eine Zahlenumwandlung mit dem DRAGON 32 
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DRAGON 3i 




VC20/C64 32 



Superhirn 




V° =" Spokes i 4 , n i m-m+ i 


IE E^B:V=B:R=0: IJ=M=llTHENa[)TO450 


ie 5c3»* ' 


IS NEXTL 


£2 SET?* 




EB IF2*^-£"HNDa(£X>BTHENS=4:a<S)^S:C=2:QQTD3e 








34 IFZ**»L"THENB0TUa5e 


3S SE^l" 














46 IFZ*="T"THENJ=3 








50 IFZ*=-G"TBENZ=5:G[)TO60 


52 IFJ*^ - E-THEN2=S:i3QT06B 


54 IF?*"="I"THENJ-7:Q0Toea 


Si? ;L ™ E " 0T0S=B 


G4 JfLE^^EHGOTDBS^ 10 " Z "^ ^ 


es R°™r 






SB FR1MT-W 




90 IFR-5THENGDT01BB 


;™ "" c ™to" uso 


i HTZT^ 


170 IFr(C>™<B)THENG0EUB23a 


1SB NEXTB:h£XTC 


200 ^^TO.EwJ-MW.MKTB 


SE0 V=V+l:PRINTTFlB<14.V>"M»"'YCC>=B:X<C;=8:E=E+l!RETLJRN 


230 iJ=V+.-PRIMTT^B(14tV) □» 



VC20/C64 sa 



2E0 PRINT-CM 






270 GOTD12 






310 PRi'nT E ^"" L 












340 CLR NT '""* 




' JT " IMm " 


360 Pr"^' TD3B 


-:F0RI=1TD6 


OINEKTI 


370 PRINTTflS(35 


'naittaKUPERHlRNS|ttt-:p 


*im-"OT':FORIMTOSB:NEHTI 


390 K=3GB75:PGK 


EK«3.15tFaRM*lTD3>P0KEK,E 






















430 GETZ** IFZ*= 


"THEN430 




4f0 REM VERL.OREN 














dsa prI^tt^?!^ 


^■■it S NlCHT B GESCHHFFT.f' 
















SS0 FORI-1TOE00 






538 PRINTTfiB<7> 












5?B BfffiM 






E10 PORB'lTCa 


~F=3CRF=4ORF=7THENGCTC620 




























680 B*(n = - **» 


•**«**•■ 




700 PRI^T'U-* 






720 raranwm' 


-R 1 MT- k "S*(l):PRirfTB*(S3; 


"'* K ™ 


7^P0K^,i a ,4 9 


PO fie8 U 1 ,4 3 = P0K ES112 ,3 2 




7E0 REM ERKLAERUNC 




7G5 P0KE3S379,£ 


S6!F*-*'L«***t*t*MEUPERHI 




770 SS^'D* 


*' 




?3a PRIMTQ* 






733 PRINT-Q. Tfi 


3TE BSsSCHWflRZ »■ 










793 PRINT-Qt Tft 


TE IE:QRUENB 1. * ■ 




600 PR INT *Dt 






S03 PRim"B Tfi 


TE JW'UEISSB V I*' 










S15 PRIMT-D. Tfi 


TE »:BLflUB L »« 




8S5 PRIMT-D. TH 


TE * : RDT .*■ 






■O. TftST^ w-± 



■■wen z; 



. DfiNN ,, :PRINT"*OEl*CN £ 



"SDER TASTE L LoeSCHEN!" 



'*wast« 



Andeningen fur den C 64 



LE 3S8-4i0i 



Bits fibers Radio 



CumputerKontakt 10/84 



Assemblcrkurs ASEM-4 






\t Dm.h Auig b 



:s Selbststudiijni einen 
a Lemcifolg anhand der 



Sprite -ErstelJung 
fiir den C64 






5W-710 F.nthalten dis Dale 



ilhtrfluECD icrden wird. I 
GrundlggeEi dt j H.-.'Il'-lI 



Z* nitohi.il I ,-Ijk Kapiltl iu wic- 



{]541).TRS-80I(35-Tracl| 



C64 



8 neue Befehle fur den 
COMMODORE 64 



u COMMOUORE-B 



i! rM.W kaun 



!STRS(AS3S,X) 
raoeLchcD SprOnge 



S [richp unities kan i 



HH1NPUT AS 

Ein Dialogatrins i*i ma^lich. 



„,»... m dt. wii™ .k s* >,i print era c™...„<.. 


«■ ™" ;SS™S°Z™™';K"™ S 1 ' T" 
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see Of 


T* =30 IBB 


mn 


irn 




IWl 


„- 


.,. r 


nr 


..... 


~.-n 


rrn 


-.- 


111 


Oil !95 


Bz 




s: 






* 














r 


■-; 






























































































IS si 




;;»; 




•■: 








- 


f 


v:: 


,,, 






--HI 


HI °; 


s sc 


:.■;.•. 












,,.■ 








™ 




































770 Dfl 


T« B9E 






























fur 


Quickcopy V2.0 
den Commodore C64 




Ein schneUes Kopierprogramm von 
INTEGRATED SYSTEMS 


von Disketlen im Betricb des iinicrstuin.sstaooaHsrzuSlO- 
CM mil der Floppy VC-1S41 isl raD S =ll Irommen, wenn man «i- 

OVi^RCOl'V' 1" ■ ' M:fL:f,i **?? 




Was macht 
man mit dem 

Heim computer? 



Speicherplatz- 
Anzeige mr C 64 



demDriickenderRETURN-Ta- tjS, Adressco, tluistulttgeM) 
sic del noch (ieie BASIC-Spf,- urul hiiicJe. 39 S'rozciii nuueu 



Speicherplatzanzeige 



9 REM ••. SPEICHERPLATZANZE! 



1 ,** 610B DARMSTADT 



COMPUTER-BUCHVERSAND 





Lon Poole und Mary Bcichers 

ii 


ie»-ft^ml.na In tanbW 




FtS 


SSSjJgfSSSE 


fHOs 






iii 


. 


. S?^= 


Petar Kriffln /Klsus-fflatei Kaufrrann 


Pater Krizan /Klaus-Dialer Kaufmann 


Dnnlnman/Kurtln 


r 


■fjll 


| "sii^T 


lillt 


DerBOM 

Assembler 




^S!^^ 


» 




ssSr 


-.-:■" 


_ 


ERNST. Eva/DRIPKE, Andreas 


sau- 


^Hsj-i 


A.Drlpke 


_..«_ 


■ 


H*W 


>•€* 


■m oul» MfipWikJ"™ 


@llltlf 


IgpS 


|| 




ZXSp*ctrum,ZXBt undJuphlerAce 


£*» „ ra „.,,.« 


,»«, -„, 


*"*»~™^~ 


,M M« 


"*"" .w 



COM PUTER-BUCHVERSAND g 



I 



SMiTS 



Bpfalsn, Ltmafi. Ar 



Me In Dragon 32 

13 ill! 




Logik d«* PrQgnMnrnlfrrens 



-t?*-*"* : 



B 



WMes 




WoHgang Black, M 



1 



iSJ^HSE 



Computer Kontakt 10/64 



COMPUTER-BUCHVERSAND 



i - ErwWtanjnaen aii(0iaiBBr19B3. 10 



Tips und Trials. Hochaullosorale "STtIII| , flfc 1 __ 1 i lue i 1 ic a Sinel* ZX Swetnim But Compute- Sfllala Bd. 



Proararnmle™!' In Mnchlnan- ' Programme 

natttrWM.a.aoa.. "^ ZX-SpBGtnim, ZX 81 jj*g? 



« Knlffe und Proaramn 



Sysramatische AkjfgaDeneamm- 



10) mit dom ZX 81 341K-Suparapl«lstflrdMi GnjndlaoMiun 



0&S-.ca.3nPtogf„ RllBdiagrarniT 



Computer Kontakt 10/84 



COMPUTER-BUCHVERSAND « 






. >:.!'!() einesCmiputsnilinden-aetes in Zsitschriflen, 



il atflesen. Compuisrurnstelger und Nbl 



im (latflntBBfaltet (1 .3475 m 1 ) un 



Roger Valentine 



D» Spectrum Buch 





Shew. Paler 
SploleMrlhr, 




, 


BUCH-BESTELLKARTE 
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COMPUTER-BUCHVERSAND 43 



Pahltorg. G. 

Faiben, Grafa. Ton , Spiele in £ 



Sybeil9e3.24DS.,ia5Abb.,P 



fe-Wflgws i bb r f Ur Apple 1 1 






SpBlproaroramlO-aen 

PC 1500 

Vleweg 19W, (Progrernmb 



So beherrschen Sie den 

Commodore 64! 

-yiimgMgg Meilelfaltigen 
HMglichkelten 

.«.' — -t rr descoiimodore6«. 

i«s*«L EmeElnfuhning 

fiirdenEinsteiger. 



r^\ wire 

LJ -: ind 

ulrti •"• den 



Tipsfur 

den Anwender. 






ass- <h> eski 



erKontakt 10/8-1 



Programmverwaltung 
»Directory« 

FurdenPC-]500 + CE-15l> 









[Computer Koniakt 1 0/84 


ZX81 <t 


Docken 


S40 PRINT RT 16,37;" 

see print'rt 16,37;t 








S50 IF ';:' ■ EN LET TEaT 








S9B IF IN«ETI-"7" THEN LET TE=T 








700 IF PH-1 THEN GOTO 791 








709 PRINT HT 19, 27; INT H 
















7=5 IF X < 1 THEN LET X = l 




730 PRINT HT X,26;'(" 
















790 IF TEJE THEN GOTO 73B 




■ ■■■ : ■■-■■. ■■; ■ ..: : ; ;■ .:■-:■.". .;. : ; o 


-;BT fc,2W; "■ " ' 












B3® PRINT RT iO,Y;"l" 










l IS ! KR^iSl 11 "*»"^^^^ P 


©70 IF ENT15 THEN GOTO 1100 










240 POINT BT ISigSiJ^m'^RT 1 

,27;t;rt ) i'i ~r "nfirrlr " is* a? 


f 97B PPii' bBbbbSt 








9 IBea ir INKEYS="5" THEN GOTO 105 


"if "ie^"BUS^JftT B *S!? 1 /■EMf*""" 1 


T 1010 NEXT R 






I»H";HT 6,6;"B B" ,_.—.., __ __ 
^7a ppiht rt is,*; "BBD";ffT 30 
3; "BB"; «T i,s*, 'a ■■ 


■ t^n-ii^s 1 "™'" 1 " cEscHnFFT ,,;n 


aea print fit ie,=;"j";RT I9,=a 




laa PRINT HT 7,34; "B"; P.T 13,34 

'BBS-'iflT 10,30; "H" 




' tosl's§T0 n sio 


1100 if te(5 then goto isbb 








TO 1300 




11E0 PRINT RT a, 10; "SCHROTT" 




1130 prii: isMinu.'"ifl 




T S, 10; "GESCHU . =■-"., TE 






330 FOR Z=10 TO B STEP -1 












3B0 IF INKEY»="B~ TIEN LET TE = 


T ; ht 4, 13; "SRUBER"; RT 5,ll;"RNGEt> 






390 PRINT BT 9,15J" 


1205 PRINT BT S , 10; "GESCHU . = " J TE 


100 PRINT RT 9 , 15; Z 










T 1230 IF INKEyO'-J'^THEN^OTO 1 !! 


430 IF INKEY*="0" THEN LET TE * 








1250 PRINT RT 11,11; "BIS BBLD" 


450 PRINT ST IP , 15; TE 


12 O0 STOP 




; 13BB PRIM- :f.~RBDE NOCH" 


HT IB, 13; "FflKTOR" 


...... ■ ... 


464 NEXT R 






■: .: .-.;-, :..;.: ., . , . ■_■ 
















1540 PRINT RT 4,13;" 






510 IF TE>0 THEN PRINT RT 4,7, 








S2B IF TE=B THEN PRINT RT 4,7, 


1610 GOTO 1750 


";rt b,7; '*"; at 6,7;" ■' 


1650 LET R*-"SRUERSTOFF" 


6ia T pRiNT bt'tem?2j f * - 


16B0 SOTO 1750 


17B0 LET fi»="ZEIT" 


545 LET TtM=(12B-SBS TE) /1« 




55B IF "". TE^llO 








570 LET E^E+TE^l60' 








■ ■;■ '■ ■'■■■.:■.' ■- r ■ ■'■■■■ : ■■ . .. . ■■ ' 


1730 NEXT N 


600 IF INT !_::=:=. TH-.M GOTO 1606 














134B IF INKEYt-'-J" THEN GOTO 10 


535 IF Sfi=30 THEN GOTO 1650 



MECKERECKE 






smeckerecke: 



• wndissten Vertahren) au aB e- 


-■ : . ■: - 




i 3. Llshl-*en-AiisdiLliO 


Sehr B ee 


rlt RedaMon 


- Es ist richiis, daB a kcoec 




:«4 liahe ich Mir 




aen Diiitk 


r 1526 von COM- 




■ ■■: M 




1 durch die auflarsl geriilge Nadl- 




ertainerlei Hefehle 








n Asm auT der ORGATtCUNIK 


!-.;f;r.dc: o 


sidi ira Dmdmr- 
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Einfiihrung in die 
Program mi erlogik Teil II 




3D-LABY 

10 DIM M(4C,24),MMC14O),NNCl40),A$QO)!A$- n E #A":A$<4,4)-CHR$(160)iK-6 

20 OPEN #1,8,0, "S:" 

30 GRAPHICS 2 

40 ? #6j" thcmae tausend" 



120 7 #6;" ••«»«••••" 

125 REM ••• H() AUF O SETZEN *** 

130 FOR (HO TO 40;SETCOLOR 0,0,N/2.66:FOR 1-0 TO 22:M(N,I)=: 

135 HEM *« TUSCH SPIELEN »« 

140 SOUND 0,121,10,8 

150 FOR P=l TO BO:NEXT P 

160 SOUND 1,96,10,8 

170 FOR P-l TO 90:NEXT P 

ISO SOUND 2,81,10,8 

190 FOR P-l TO 100:NEXT P 

200 SOUND 3,60,10,8 

210 FOR P-l TO 300:NEXT P 

220 FOR N=0 TO 3:S0UND N,0,0,0:NEXT N 

230 ? :? "Bltts geduldBn Sle elch elnen Momeotl" 

240 GOSUB 1250: GOTO 1000 

245 REM ••* AH HIER ZEICHENHOUTINEN - 

250 IF BCA1,AJ)=4 THEN 1030 

255 REM -•• LINKS "* 

260 PLOT 36,0:DRAWT0 3E,176:IF J<>3 THEN 280 

270 DRAWTO 21,191:RET0RN 

280 DRAWTO 0.176:RETURN 

285 HEM »*« RECHTS "« 

390 PLOT 2B4,0;DRAWT0 284,176:IF J<>3 THEN 310 

300 DRAWTO 299,191:HETURN 

310 DRAWTO 319,176;RETURN 

315 REM *" LINKS **« 

320 PLOT 76,0: DRAWTO 76.136:IF J<>3 THEN 340 

330 DRAWTO 36,176;RETUHN 

340 DRAWTO 36.136:HETURN 

345 REM "' RECHTS *** 

350 PLOT 244,0:DHAWT0 244,136:1F J<>3 THEN 370 
360 DRAWTO 254,176: RETURN 

370 DRAWTO 284,136:RETURN 

375 REM *** LINKS **• 

380 PLOT 10B,0:DRAWTO 108,104:IF J<>3 THEN 400 

390 DRAWTO 76,136:RETUHN 

400 DRAWTO 76,104!RETURN 

405 REM *•* RECHTS **• 

410 PLOT 212,0:DRAWTO 212,104:lF JOS THEN 430 

420 DRAWTO 244 ,136: RETURN 

430 DRAWTO 244, 104: RETURN 

435 REM •" LINKS *-* 

440 PLOT 132,24:DRAWT0 132,B0:1F J<>3 THEN 470' 

450 DRAWTO 108,104 

460 PLOT 132,24:DRAWT0 lOB.OiRETURN 

470 DRAWTO 108,B0:PLOT 132.24JDRAWT0 103,24: RETURN 

475 REM «** RECHTS *" 

480 PLOT 188,24:DRAIi 

490 DRAWTO 212,104 



J PLOT iaB,24:DRAWT0 

3 DRAWTO 212,80:PL0T 

i REM "* LINKS *** 

3 PLOT 148,40:DRAWT0 149, 

3 DRAWTO 132,BQ:PLOT 148, 

3 DRAWTO 132,64iPLOT 

5 REM — RECHTS "• 

3 PLOT 172,40:DRAWTO 172, 

9 DRAWTO IBS, BO: 

3 DRAWTO 188,64:PLOT 172. 

5 REM *•• LINKS *** 

3 PLOT IS6,48:DRAWT0 156 

3 DRAWTO 14B,64:PL0T 156 

3 DRAWTO 14B,56;PL0T 166 

5 REM **• RECHTS •*• 

3 PLOT 164,4B:DHAWT0 164 

D DRAWTO 172,64:PLOT 164 

DRAWTO 172,56:FLOT 164 

3 PLOT 36.176:DRAWT0 284 



3 PLOT 
3 PLOT 

■> PLOT 
3 PLOT 
3 PLOT 156 

3 PLOT 160 \ 



DRAWTO 244, 
I! DRAWTO 212 
DRAWTO 188, 
DRAWTO 172 
DRAWTO 164 
48: DRAWTO 156 
50: DRAWTO 180 



64: IF JO! 
40: DRAWTO 
40: DRAWTO 



56: IF JOS THEN 630 
48:DRAWT0 172,40:R£TURN 
48:DRAWT0 172.4B:RETURN 



PLOT L 
PLOT 1 



DRAWTO IBB, 24! 
DRAWTO 172, 
DRAWTO 164, 48! 
DRAWTO 164, 



RETURN 
RETURN 
RETURN 
RETURN 



i5,70:DRAWTO 155,55 



DRAWTO 1SO,55:DRAWTO 155,55:DRAWT0 155,70:DRAWTO 1 

720 DRAWTO 175,75:DRAWTO i55,75:DFLAWTO 155,90:DRAWTO 18O,9Q:DRAWT0 1B0 , 95 : DRAWTO 

150,95:DRAWTO 150,50 
730 RETURN 

740 PLOT 15O,50:DRAWT0 1BO,5Q:DRAWTO .18O,95:DRAWT0 175,95:DRAWTO 175 , 75 : DRAWTO 1 
55,75 

750 DRAWTO 155,95:DRAWTO 150, 95! DRAWTO 150,50:PLOT 155,55:DRAWT0 175 „ 55 : DRAWTO 1 
75,70 
760 DRAWTO 
770 RETURN 

775 REM »*• AB HIER HAUPTTEIL ■*** 
780 CT=0jF0KE 77.1! POKE 752,1 
790 J-MCAI+DI*CT-DJ.AJ+DJ*CT+DI) 
800 ON CT<-1 GOSUB 260,320,380,440,520,580 
810 J^MCAI+DI'CT-tDJ.AJ+DJ'CT-DI) 
820 ON CT+1 GOSUB 290,350,410,480,550,610 
830 CT-CT+1:J=M(AI+DI*0T,AJ+'dJ*CT) 
840 IF J'l OR J=2 THEN 860 
B50 IF J=0 OR J=3 OR J=4 THEN 880 
860 IF CT<6 THEN 790 
B70 GOSUB 700: RETURN 

880 ON CT QOSUB 640,650,660,670,680,690 
B90 IF J-0 THEN IF CT<-1 THEN 710 
900 IF J-4 THEN IF CT<-3 THEN 740 
910 RETURN 

915 REM "• STICK-ABFRAGE ••• 
920 RR=STICKCO):IF STRIG(G)=0 THEN GOSUB 1150 
930 IF RR-11 THEN J-DJ:DJ-DI:DI=-JsG0TO 990 
940 IF RR=7 THEN J=DJ:DJ=-DI:DI=j!aOTO 990 
950 IF RR-14 THEN AI-AI+DI:AJ-AJ+DJ:G«G-H:GOT( 
960 GOTO 920 

970 IF K(AI,AJ)<>3 AND M(AI,AJ)O0 THEN 990 
9B0 AI=AI-DI:AJ=AJ-DJ:GOSUB 1240:GOTO 920 
990 IF M(AI,AJ)=4 THEN 1030 
995 REM ••* GRAFIK EIN5CHALTEN *•» 



1000 IF PEEK(87)08 THEN GRAPHICS B+16:C0LQR l:SETC0LOR 1 

TO 1020 

1010 POKE 87 , 0: POSITION 0,0:PUT #1,125: POKE 87, S 

1020 GOSUB ?80:Q0TO 920 

1025 HEM *•• AUSGANG ERREICHT •" 

1030 FOR N-0 TO 255 STEP 10:SOUND 1,255-N, 10,15:SOUND Q,I> 

T P:NEXT N 

1040 SOUND l,O,O,0:S0UND 0,0,0,0 

1050 GRAPHICS 1+16 

1060 POSITION 4,4:? #6;"gratullerel" 

1070 POSITION " " 

1OB0 POSITION 

1090 POSITION , 

1100 POSITION 0,15:? #6:"bltte KNOPF d 

1110 IF STRIG(O}=0 THEN RUN 

1120"C=C+1:IF 0-256 THEN C=0 

1130 POKE 70B,C:GOT0 1110 

1140 REM *" LUFTANSICHT DES LABY'S • 

1150 GRAPHICS 0:P 

1160 FOR 1=1 TO 21: FOB >35 TO 3 STEP -1 

1170 IF AI=J AND AJ=I THEN ? "*";:G0T0 1200 

1180 ? A$(M(J,I)*1,M<J,I)+1); 

1190 IF A1=J AND AJ-I THEN K=42 

1200 NEXT J:? 1NEXT I:G-G+10 

1210 RR=STICK(0):IF STRIG(0)=0 THEN 1150 

1220 IF RH014 AND RBOll AND RR<>7 THEN 1210 

1230 RETURN 

1235 REM — SOUND FUER HINDERNIS ** 

1240 SOUND 1,127, 10, 5:FOR P=l TO 50:NEXT P:SOUND 1,0,0,0:RETURN 

1250 REM *" LABY-ERZEUGUNG *** 

1255 REM *** RAND ERZEUGEN «* 

1260 FOR N-2 TO 36:W(N,0)=2:M(N,22)=2:NEXT N 

1270 FOR N=0 TO 24:M(2,N>2:H(36,N)-2:NEXT N 

1280 K=0:MM=18:NPf=10 

1300 X=M(MM+2,NN):IF X=3 THEN 1350 

1310 X=M(MM-2,NN):IF X=3 THEN 1350 

1320 X=M(MM,NN+2):IF X=3 THEN 1350 

1330 X=M(MM,NN-2):IF X=3 THEN 1350 

1340 GOTO 1460 

1350 D=INT(HND(0)»4)+1:QN D GOTO 1370,1380,1390,1400 

1360 D=INTCRND(O)'4)+l:0N D GOTO 1370,1380,1390,1400 

1370 M1=-1:N1=0:GOTO 1410 

1360 M1-0:N1=1:GOTO 1410 

1390 M1=1:N1=0:G0T0 1410 

1410 X=K(KM+M1*2,NN+N1*2):IF X=2 THEN 1350 

1415 REM »*» FAKTOR 1.8 ENTHAELT DIE 

1416 REM *•• ZUFAELLIGKEIT FUER 

1417 REM *•* "LOECHER" (VERBINDUNGEtQ 

1420 M(MM*K1,NN+N1)-2:M(MM+M1*2,NN+N1-2)=INT(RND(0)*1.B)+1 

1430 SOUND 0,MM+NN,10,4:SETCOLOR 0,INTCHNDC0)»16),10 

1440 MM=MM+Ml«2:NN=NN+Nl*2:K"K+l:KM(K)-MM:NN(K)-NN 

1450 GOTO 1300 

1460 MM=MM(K):NN=NN<K)xK=K-l 

1470 IF K=0 THEN 1490 

1480 GOTO 1300 

1490 SOUND 0,0,0,0 

1500 MI-36:MJ-22 

1510 DI=-l:DJ-OtCX-l 

1520 FOR N-3 TO 33 

1530 IF M(N. 20)^2 THEN M(N.21)-0:AI=N:G0TO 1550 



) IF M(N,2)=2 THEN H(N, 1 )=4 :GOTO 1560 
) NEXT N 
1580 AJ-20 
) RETURN 

1610 REM • DDD-IRRGARTEN 

1630 REM • (c) 1984 by TT64 

1640 REM * ' 

1650 REM • Thomas TauBBild 

1660 REM • Am Felsenkeller 16 

3 REM « S764 Klslnheubach I 

5 REM « Tel.: (09371J/4647 

Zeilenloser REM-Killer 







Zeile W: Codeweri des Zoi- mil HKMK1LL select 

Zeilc ![)!): Vcrgleich, ob Pro- PRINT ist! 
■ COL - RETURN) crsslzed. 



DIM MS(300) 
20 HJ(1,50)="CLR:DIMKUOO):NH=1:GH.O:B=F] 
30 M$(51,13S)='*F.B^lTOaSTEPO:ZN-PEElC(B)+abB*PEEK[S+xj;. 
+<FEEK(B+4)-0):B-B+L:" 
40 M$( 137 , 154 )-"IFZN<3276STHENN.N%" 

50 HS(155,237)-"GR,0:'?:7".":? :?'P0KES42,12:Z=Z+1:IFZ< 
S.O,0:POKE 842,13'*" 

60 HS(23B,262)="FOS.2,0:POKE B42,13[ST0P" 
70 OPEN #1,3,0,"D!REHKILL" 
80 FOR N=l TO LEN(MJ) 
90 A=ASC(M$(N,N)) 
100 IF A-ASCt"*") THEN A=155 
110 IF A-ASCC""") THEN A=34 
120 PUT #1,A 
130 NEXT N 

PUT #1,155 



)+256*PEEK(137)%" 



):R(NR)=ZN:NR=r. 



ZEILENLOSER REMKILLER 
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Thomas Tausend testet den BSSSJISSI SSSHSS 

ATAM-Schreiber ~s» 



aui den Maikl icbrachi, i 
ATARI-V, 
















[cnendcalii>ilich[ausciiiaiidi:r. 






i-i! M.mu.ib iEmiiihrune i.nd 
















^^paS^^Ia^ 


i"«rSi;".";: 


UctateLi cr^'nT Sil 


Druckvoiganees wlrd der 


nen mar die <?WERTY-Tasui- 


































moelicnj. Zcntricrung voo 








Ten-. Kopfzeilen und TuBno- 




■ []'imbclcgI(Yund 










■ende. Cursor an ■m-t';,i: ; - !".y« 




Iniipfcn. Trait, die zu 


lirkk-i ni.ir, urn "S^-wuhnlcna 






sind, urn kompled im Spei 


^^SnTSS^u^ 












J\Tj 4t\ k 




\|.\lii-T,-,>>„l;iri,r. dc"n nvan 
















».-eirci--? hiiiiJttinn ereetzt Klein- 






&>m^to e'nI^Xn "ols^t 


GraBbu^ B b^ n W ' mSd ' dUrCh 


^CJRfflfol^ 


*ak ®juff&2fi§ 










hiniiJi. Wahrend das DOS 


tohtZ feH^Sob^ 


js[J|jprfc| - 


^fls^S^ 


dcmSchiim gioB -jsi AlAlil 


jSich Te^To^ to 


S|f&?<F^ 


-t-^Q^ 


ndt'd'em JwStur dalm 


gem mit START- 


T^^^^^. 


I^b^^hT 



fC'Buffcc- abgelegt 



eibt tints Tenes begani 



befindcn (z.B. der bearbeilele TION-P die > 
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DATGEN 



) ? #4|Z+10( n S=0:RESTORE "jZ- 
) ? #4 ( l+20;" FURA="iANFftDR;": 
) ? #4;Z+90p" RETURN" 



):3=S+D.? *4;Di 



=|TBEIM B^SI 



!<>2975 THEN 7 " DflTEN-FEHLER [ - : S" 



1011O DATA 202,208,240,96 



Wer macht mit? 



Wer will noch bei uns mitmachen? 



Wir suchen noch clevere Mitarbeiter fur alle Oerate! 



.!- !:!-.:- 



** 



??0? *" v^.*5* !)";■« 

Knobeleien -J? Nv ^^* |$I % 









F (j,wei<* ^ fro + Contra ♦ **^*i^ "Stan 
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Wer hat Interesse an ZSS3SESZZ ~S(S«~i*". 
einem Kurs fiir einfache K2SSS5S" 

Logikschaltungen? s i,-*.,r,— : ~=S 



Is und der ProBraninM'erMri'ciicn. k: 
el hat, der Programme schreiben kann 



? Iriggerdran.DannFolgcndivi 









rang glaich ailcs zu taufcn. Fiir da£egeu. 



■ Tips + Tricks + Tips + Tricks + Tips ■ 

TI 99/ 4 A mit Euended Basic Pragnraime tut- rsWmwJijs eingegeljeTi: PRINT Aom. d. Rcd.r 

EsteDded Basic '"Z"^^ Bas i= f™ 5^ X ,££3m& 

BUdacllnnuM*.. Inden. TED « graved wnrdcn, »ted« les ^ W b(a. Bt.nr nun mit p^ /gVtcn nu; ml dieVc- 

»on fto ' rnrnw laBtTich die '""" ™ tS "'" >D ' b "'' Ct " ""^ dcm JrsptUnelichfn Pf0 6r™"i ISM SlandardausfllhNinB oiit 

schiehl durch die Eingab; lol- LOAD(-j]931,0) verwendet wurde. niuB cin an- n , el i tie". 2 I'Ofli &JS6G 8 

gender Zeilc im Dircktmudus, panaclt laBt sicb das Programm darer Name gewahll »crdcn. 

FOR.^TOl^cZ'w **"""■ PT-I^nn diXerat^'B^fioT": 

LOR[I, 16,2)::NEXT T:: CALL EmWiun tUs frtieil Spdcher- L V> UWU ^^ JJJ^ nu[ diE Bcschrif . 

KBESWO «CFf'T I ptattes in H-Buic uing sonde™ auch die Bele- 

InTI-BasiteTistiertBeinBe- ... bis mm korien Byte! d RiK ,,,.-[ ,.:.,, ,,.. 

-..,:■!::: !:.:>.: .'■:!.; ,i..;J ,■.-■■'■.-■ : ■:;■.::■-... : . :■ ..,■.!....■ ; . . . . , , 

Drlleken der ENTER Taste an- plan ermittelt werden kann. erreicht man einc Spticber- ( |la|||] j | e iju I ejsu nis J«=i- Re- 

genDmmen vjnrdc, muJ3 FCTN- Daher mufi man oincn kJtinen plalzcim. .'.' '^J Kyi, ,....,, 

4(CLEAR)gedriJckt»crd«].Il] Unweg einschlagsn. Man gibl, I. NEW0 " :-er kommen Jedes 

dies™ Fallt erschsinen atle nachdem das zu Oberprufende 2. POKE &7S65.&40A0S NEWfih«™li™hi ■;; 

Zeichcn wciB auf schwarzem Progranun geladeo jst, folgende 3. NEW 

Hintcrgnjad. Dumb Andem Zcilcn cin: Diese Befeblafolge 

re Parbkombination. 



ISO mil RUN. N 



wir|[|i &..C5 mit SFF (256). Bei Ver- 
iierc. tt tein NE * mehr * ebcn - 
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m 1 


.A I 


tpec 


1'Ultl 


Vr™ 


ndi^gnnfcndi^Va™ 










































w'u,. 


WW 














V'i 




\mSn 


mm 


sotletlbeute audi die sa- 












iler FRAMES behandell 


«crbl 


fbende 


■ 


rtUuud 


werd 


D. Das and drei ZaM-Va- 






. 






bis 23671 stenen Beim 












...;;■,,; 


'. 






n lie auf feselrt mid 














■'■- :: 




. 


! :■:.,, ■ 




fc«{S™nfc™W*r 














RibL 


' 


"■■ 




fetf 


in einem $)&-««£ 



Systemvariablen for den ZX 
Spectrum (2. Teil) 






J 23563. ist die !:<;e, *(i r 



): POKE 23674.0 L"5R(l(lllldt:M'F;Kleing:bL,da 

■ AT 10.W; PEEK « mil diesem Aufrof den e iei- 

-256-PEEK23S73 Chen Effett erzfcll. Und rail 

:K2!fi72+256'*r>EEK ■ 



Spectrum -Freaks anfgepaflt: 



m 



Das Microdrive 
Unlversnm 

tjeSeitenkt. DM3900 



Dafi unehtbehilicr= l-'^r,dbuih fill -=a» : : _-- 

die SasainleTenden Mogsichkeii^r, 

des ZX-Spectrum mit dem ZX-MicraMve 

vdU ausschopfen wollen. 



Hueber Software 



Tips + Tricks 



Eingeben einer 
Funktion per »INPUT« 

Eioe Version fiir Apple II und Kompalible 






i APPLB-COmputoni). 


X^K* 










































"totted tef r "aS 


H.er tnli.scn die Totens d 


F.-Compulcr kenncn Deo Be- 


duo jsweiligen Rcchner ang 




paB(»erdEn!i': 1 



VC20 



. 20 


GOTO 10 




50 


wwx<i« 


fO 14; READ X<I) ,X« 


s 


4 N ! J ! !! F " M 


:n (f«> to i step - 

D* <F»,J,1> i8* - MIDI 


80 


FOR I = 1 
<F*,J - 1 

mo* <f» 


t CHR* <X<I)) ♦ 


90 


NEXT I,J:F 


■ MIDI (F*,2,150 
1ST FUER EINTRASUN 


:00 


FOR I - 1 


TO LEN (F*>1 POKE 


ma 


DATA 200 
ABS,21S,S 


*, 201,-, 202, I, 203, 






1% 


"^ COPY 


1GHT U C R 10/B3 E U 



Deutsche Sonderzeichen auf dem 
Colour Genie 



def/cithtn i.-V 6. (. . ii, ti. ii, fl) 17418.65. 

■■■ iriis drew (17408) ad- deM 1 740S-21 504~trsil 



Wjsum m/.n ton 174118 d 



id, 077. 52/ 4 J9 48. 
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BERICHT ss 



Computercamp 
im Ferienzentrum Schlol) Dankern 



I n d m Url 


lentliclK Ziel nlml 




















tine Paitj Sisigt luch Dit» 




undKinosindin JsrN/ilie und 












delUuipltulienmzcn. Spezif!] 










Computar Koniaki 1C 



SOGO 



copyright i?a; 

VERSION FUER " 
VON 



60 REM Gert-Ruediger He I 

70 REM Ruhrstr.86 

SQ REM 4006 ERKRATH -2- 



CALL 


CHAR 


101,* 


CALL 


CHAR 


1C2," 


CALL 


CWR 


103," 


CALL 


CHAR 


104," 


CALL 


CHAR 


105," 


CALL 


CHAR 


106," 






107," 


CAL L 


CHAR 


96, "1 


CALL 


C HAS? 


97, -1 


CALL 


CHAR 


98, "1 


CALL 


CHAR 


99, "1 


CALL 


CHAR 


112," 


CALL 


CHAR 


113," 



I FOR 1-1 TO 8 

I FOR J-=l TO I 

I F*="FF-&F* 

i NEXT J 

I CALL CHARU19 



330 CALL CHARd36, 



'1010101010101 

00OO0OFFFF" ) 
0102040810204 

111214FFFF204 

1O101O1F1F2O4 

101010FOF0204 

1112l4FaF"> 
1112141F1F"> 
11214FFFF") 
I12141F1F2040 

01010FFFF2040 

11214F8F0204D 

1038448232443 

10387CFEFE7C3 



00183C7E7E3C1 
001B3C7E7E3C1 



!,128,3> 
I2,128,3> 
134,5) 



) CALL SCREEN<2) 

) CALL VCHAR(2,3; 

1 CALL YCHAR4 21 ;1 

> CALL VCHARd ,2 

) CALL VCHARC20,; 

1 FOR W=l TO 5 

) FOR 0=1 TO 15 

) IF W/2-INT(W/2)THEN 430 

) U=l 



470 V=0 

480 NEXT B 

490 NEXT Id 

500 CALL CHARd 

FFF') 

510 CALL CHARd 

FFF" ) 

520 CALL CHAR< 1 



i CALL CHARt 



"FFFFFFFFFFFFF 

"O103O70F1F 

"80C0E0F0F8FCF 

47, "FFFEFCF8F0E0C 



48," 



23) 
144,3) 



540 CALL CHAR< 

301") 

550 CALL SCREEN' 

540 CALL HCHAR<9,6,144.23 

570 CALL HCHARU4 

580 CALL HCHARd3 

590 CALL VCHARdC 

600 CALL VCHARU4 

610 CALL VCHARdO 

620 CALL VCHARdO 

430 CALL VCHARdO 

440 CALL VCHARdO 

450 CALL VCHARdO 

640 FOR 0=1 TO 44 

470 READ X,Y,Z 

480 CALL HCHARCX,- 

490 NEXT 

700 ZE 



C 7F3F1FQF070 



710 A«=" 



C 19B3 BY ( 



750 MM=5 

760 FOR 0=1 TO 100 
770 KK=RND»14+2 
780 CALL COL0R<13,II,KK) 
790 CALL COLOR<14,MM,KK) 
800 TE=II 
810 II-MM 
820 MM=TE 
830 11-11*1 
B40 IF 11(17 THEN 840 
850 H = 7 
840 NEXT Q 
87D FOR 1-1 TO 24 
8B0 FOR J=120 TO 127 
900 CALL HCHARCI ,1 , J, 32) 
920 NEXT J 
930 NEXT 1 

940 DIM FE<43) ,B<12) ,FL(43) 
! 1=0 TO 43 



970 FEU 
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1020 NEXT I 


1610 S=KEY-48 




1030 FLAG!=0 


1620 A*=°SPIEL D0KUMENT1EREN 


? [ 


1040 FLAG2=0 


J/NI" 




1050 ZEI=2t 


1630 GOSUB 3180 




1060 RESTORE 4050 


1640 CALL KEYCO.KEY.ST) 




1070 T=0' 


1450 GOSUB 4700 




1080 11=0 


1660 IF KEY=74 THEN 1690 




1090 CALL CLEAR 


1670 IF KEY07B THEN 1440 




1100 CALL SCREEN* 1 1 i 


1480 SOTO 1700 




1110 FOR Z1=0 TO 12 
1120 READ BCZ1) 


1490 FLAG!=1 

1700 CALL S0UNDC-22Z, 239,2) 




1130 NEXT Zl 


1710 A*="SOLL. 1CH BEGINNEN ? 


[ 


1140 GOTO 1330 


J/NI" 




1150 FOR 1=15 TO 6 STEP -3 


1720 GOSUB 3180 




1140 CALL HCHARC22-I ,1,101 ,14) 


1730 CALL KEYCO.KEY.ST) 




1170 NEXT I 


1740 GOSUB 4700 




1180 FOR 1-14 TO 3 STEP -3 


1750 IF KEY=78 THEN 3240 




11P0 FOR J=l TO 1 + 15 STEP 5 


1760 IF KEY074 THEN 1730 




1200 CALL UCHARC17-I , J, 100,4) 


1770 FLAG2=1 




1210 NEXT J 


1780 CALL SOUND* -222, 289,2) 




1220 NEXT 1 


1790 G-INT<RND*4) 




1230 FOR 1=15 TO 30 STEP 5 


1800 E=0 




1240 FOR J=l TO 9 


1810 IF G>=2 THEN 1330 




1250 CALL HCHARCJ+4.I-J.102) 


1820 E=3 




1240 NEXT J 


1830 F=0 




1270 NEXT 1 


1840 IF G=l THEN 1370 




1280 FOR 1=1 TO 24 


1850 IF G=3 THEN 1870 




12?0 READ X,Y,Z 


1B40 GOTO 1880 




1300 CALL HCHARCX.Y.Z) 


1870 F=3 




1310 NEXT 1 


1830 GOTO 2140 




1320 RETURN 


1390 0=0 




1330 GOSUB 1150 


1900 U=-100 




1340 A*="SP1ELREGELN BEKANNT ? [ 


1910 1=0 






1920 FOR X=0 TO 48 STEP 16 




1350 GOSUB 3160 


1930 FOR Y=0 TO 12 STEP 4 




1340 CALL KEYCO.KEY.ST) 


1940 FOR Z=0 TO 3 




1370 GOSUB 4700 


1950 IF FECX+Y+Z)OQ THEN 2110 


1380 IF KEY=74 THEN 1500 


1960 GOSUB 2310 




1390 IF KEY078 THEN 1340 


1970 IF S<>2 THEN 2050 




1400 CALL SOUNDC-222,289,2) 


1980 IF Z>=3 THEN 2050 




1410 REM 


1990 W=0X 




1420 REM SP1ELREOELN 


200O Z-Z+l 




1430 REM 


2010 S=0 




1440 FOR 1=1 TO 12 


2020 GOSUB 2310 




1450 READ A* 


2030 0X=W-0X+5 




1440 GOSUB 3180 


2040 S=2 




1470 FOR J-l TO 300 


2050 QX=0X+RND».4-.2 




1480 NEXT J 


2040 IF OX<=U THEN 2100 




1490 NEXT 1 


2070 E=X/14 




1500 CALL SOUNDC-222,289,2) 


2080 t==Y/4 




1510 A*="WELCHE SPIELSTAERKE ? C 


2090 U=OX 




1,21* 


2100 Z=3 




1520 GOSUB 3180 


2110 NEXT Z 




1530 CALL KEYCO,KEY,ST) 


2120 NEXT Y 




1540 CALL HCHAR<2i ,27,49) 


2130 NEXT X 




1330 CALL HCHAR<21 ,29,50) 


■2140 D=0 




1540 CALL HCHAR<21 ,27,32) 


2150 A*="MEIN ZUG r "iCHRtCE 


65 > 


1570 CALL HCHARC2I ,29,32> 






1580 IF KEY<49 THEN 1530 


2160 GOSUB 3180 




1590 IF KEY>50 THEN 1530 


2170 GOSUB 3520 




1400 CALL SOUND*/ -222, 289, 2) 


2180 IF KM THEN 2290 





Computer Kontakt 10/84 






TI99/4A 62 




2190 PRINT ■ ICH HABE 6 




2750 P-P*FE<A*16+A*4+Z) 








2760 NEXT A 


2200 CALL SOUNDOOOQ, 


31 


4) 


2770 GOSUB 4910 


2210 CALL SQUNDC1O00, 


63 


4) 


2780 GOSUB 3700 


2220 CALL SOUNDOOOO, 


96 




2790 IF X/1603-Y/4 THEN 2850 


2230 CALL SOUNDC500,1 


0,28) 


2800 FOR A=0 TO 3 


2210 CALL SOUND<2000, 


65 


5,196,5 


2810 P=P*FE((3-A>*16*A»4+Z) 


,262,5,-3,10) 






2820 NEXT A 


2230 CALL SOUNDOOOO, 


75 


5,220,5 


2B30 QOSUB 4910 


,262,5,-3,10) 






2840 30SUB 3700 


2260 CALL SOUNDOOOO, 


65 


0,196,0 


2850 IF X/160Y/4 THEN 2920 


,262,0,-3,10) 






2840 IF Z03-X/16 THEN 2920 


2270 IF FLAG1=1 THEN 






2870 FOR A=0 TO 3 


2280 GOTO 4580 






2880 P=P+FE<A*16+A*4+<3-A)) 


2290 0=0 






2890 NEXT A 


2300 GOTO 3240 






2900 GOSUB 4910 


2310 REM BERECHNUNG 






2910 GOSUB 3700 


2320 F=0 






2920 IF X/160Y/4 THEN 2990 


2330 0X=0 






2930 IF ZOX/16 THEN 2990 


2340 FOR A=0 TO 3 






2940 FOR A=0 TO 3 


2350 P=P*FE<A*14+Y+Z) 






2950 P=P+FE<A*14»A*4+A> 


2360 NEXT A 






2940 NEXT A 


2370 GOSUB 4910 






2970 GOSUB 4910 


2380 GOSUB 3700 






2980 GOSUB 3700 


2390 FOR A=D TO 3 






2990 IF X/1603-Y/4 THEN 3060 


24G0 P=P+FE<X+A*4+Z> 






3000 IF X/1607 THEM 3060 


2410 NEXT A 






3010 FOR A-0 TO 3 


2420 GOSUB 4910 






3020 P=P+FE<A»16+<3-A)*4+A) 


2430 GOSUB 3700 






3030 NEXT A 


2440 FOR A=0 TO 3 






3040 GOSUB 4910 


2450 P=P*FE<X+Y*A> 






3050 GOSUB 3700 


2460 NEXT A 






3060 IF X/1403-Y/4 THEN 3130 


2470 GOSUB 4910 






3070 IF Xyi6<>3-Z THEN 3130 


2480 GOSUB 3700 






30S0 FOR A=0 TO 3 


2490 IF ZOX/14 THEN 






3090 P-P+FE<A*14+(3-A)*4+<3-A)> 


2500 FOR A=0 TO 3 








2510 P~P+FE(A*16+y*A) 






31 10 GOSUB 4910 


2520 NEXT A 






3120 GOSUB 3700 


2530 G0SU8 4910 






3130 DF=0 


2540 GOSUB 3700 






3140 RETURN 


2550 IF Z03-X/14 THEN 241 


3150 REM 


2560 FOR A=0 TO 3 






3160 REM UNTERPROGRAMM 


2570 P=P+FE<<3-A)»14*Y4A 




3170 REM 


2580 NEXT A 






31B0 CALL HCHAR(21 ,1 ,32,32) 


2590 GOSUB 4910 






3190 FOR 21=1 TO LEN<A*> 


2600 GOSUB 3700 






3200 CALL HCHAR<ZEI ,Z1 +3,ASC< SEG 


2610 IF ZOY/4 THEN 2670 




*(A*,Z1 ,1))) 


2620 FOR A=0 TO 3 






3210 NEXT Zl 


2630 P=P+FE<X+A*4*A> 






3220 RETURN 


2640 NEXT A 






3230 REM 


2650 GOSUB 4910 






3240 REM MENSCHZUG 


2660 GOSUB 3700 






3250 REM 


2670 IF Z03-Y/4 THEN 


2730 


3260 A«="IHR ZUG i" 


2630 FOR A=0 TO 3 






3270 GOSU8 3180 


2690 P=P*FE<X+<3-A)*4 






32B0 CALL KEY<0 ,KEY ,ST) 


2700 NEXT A 






3290 IF KEY<45 THEN 32B0 


2710 GOSUB 4910 






3300 IF KEY>48 THEN 3230 


2720 GOSUB 3700 






3310 CALL HCHARC21 ,14, KEY) 


2730 IF X/160Y/4 TKB 


2790 


3320 CALL S0UND< -222,289,0) 


2740 FOR A=0 TO 3 






3330 E=KEY-45 



SI 



I THEN 



3340 CALL KEY<0 , KEY, ST) 

3350 IF KEY<49 THEN 3340 

3360 IF KEY>52 THEN 3340 

3370 CALL HCHAR< 21 , 1 5, KEY) 

3380 CALL SOUNDt -222,289 ,0) 

3390 F=KEY-4P 

3400 IF FE(E*16+F*4+3>=0 THEN 34 

60 

3410 AS="UNMOEGLICHER ZUG ...!" 

3420 GOSUB 3180 

3430 GOSUB 3190 

3440 GOSUB 3190 

3450 GOTO 3240 

3460 D=l 

3470 GOSUB 3520 

3480 IF T<8 THEN 1390 

3490 GOTO 4760 

3500 PRINT "GRATULATIDN 

E HABEN GEWDNNEN !!!* 

3510 GOTO 2200 

3520 G=4 

3530 G=G-1 

3540 IF 0=0 THEN 3560 

3550 IF FE<E*16tF*4t6-i: 

3330 

3560 Kl=04 + F*5-E*3 

3370 K2=E*3+6-G 

3580 FOR Zl = l TO 3 

3590 CALL HCHAR<K2,KI ,32* 

3600 CALL HCHAR<K2,K1,112+D) 

3410 CALL SOUND<100,163,2,196,2 

262,2) 

3620 NEXT 21 

3630 FE(E*16tF*4+G>=D*?+l 

3640 T=T+1 

3650 FL<T)=E*16tF*4*G 

3660 MEN=FL(T> 

3670 IF T=64 THEN 2270 

36S0 RETURN 

3690 REM 

3700 REM KONTROLLE 

3710 REM 

3720 IF D-0 THEN 3680 

3730 Gl-G 

3740 H1=H 

3750 P1=P 

3760 G=INT<P/10) 

3770 H=P-Q«10 

3780 P=G*4+H 

3790 DF=0F+1 

3B00 0X=OX+B<P) 

:>3 THEN 3840 

:=0 THEN 3840 



3900 REM SOGO-GRAFIK 



3911 



REM 



3G20 
3830 
3B40 
3850 



■1 



P<>3 THEN 3870 
SOO THEN 3870 

3860 0X=0X-1970 

3870 P-D 

3880 RETURN 

3890 REM 



3920 DATA 9, 
32,9,12,145, 
3930 DATA 9, 
146,9,23,32, 
3940 DATA 9, 



',16,146 
7 , 32 , S 
',24,145 



3,1' 



,10,15,1 



3950 DATA 


10,19,14? 






3960 DATA 


11 ,7,146, 






3970 DATA 


1 4 , 8 , 1 48 , 


21 ,14B,13 


13,146 


3980 DATA 


15,9,148, 


15,145,15 


19,146,15 


3990 DATA 


15,27,145 


10,147,16 


11 ,32,16, 


4000 DATA 


16,16,147 


1 8 , 1 48 , 1 6 


22,147 



6 , 24 , 1 



4010 DATA 16,23,32,1. 

28,147 

4020 REM 

4030 REM DATEN 

4040 REM 

4050 DATA 1,2,8,2000,2,0,0,! 

,0,0,100 

4060 DATA 1 

,13,103,13 

4070 DATA 1 

0,106,16,5 

4880 DATA 

4090 DATA 

98,7,24,98 



6,103, 



0,21 ,103 
29,105,1. 



0,96,16,15,96 
,97,10,11 ,97,7 
26,99 
13,23,99,7,31,65,1 

6,13,25,67,16,22,68 

10 DATA 17,20,52,17,15,51 , 

30,17,5,49 

20 REM 

30 REM DATA-> SPIELREGEL 

40 REM 
1150 DATA SOGO 

1160 DATA 2IEL DES SPIEL'S 1ST E 

H70 DATA UIER STEINE IN EINE RE 

HE 

I DATA 2U POSITIONIEREN UNO S 
ZU 
4190 DATA GEUIINNEN.DABE1 KOENNEN 

SIE 
4200 DATA IN ALLE EBENEN DIE STE 
INE 

4210 DATA SET2EN.DER COMPUTER SE 
TZT 



4240 DATA DER 



:omputaKoni3lit1Q/B4 

4250 DATA HELLEN STEJNE ... 

4260 DATA VI EL SPASS ... 

4270 REM 

4280 REM SPIEL WIEDERGEBEN 

4290 REM 

4300 CALL CLEAR 

RESTORE 4060 

GOSUB 1 1 30 

SPS<0)=" SPIELER SETZT » 

SP»<1)="RECHNER SETZT ■ 

" FLAG201 THEN 4370 



TI99/4A 



4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 



>=! 



) FOR 1=1 TO T 
) FELD=FL<I) 

=INT(FELD/16> 
■INT<<FELC"E'16).''4) 
4*110 G=FELD-E*16-F»4 
4420 A*=SP*(D>(.CHR*(E+65>S:CHR*<F 

4430 GOSUB 3180 

4440 Kl=14+F*5-E*3 

4450 K2=E*3*6-G 

4460 FOR 71 = 1 TO 3 

4470 CALL HCHAR<K2,KI ,32> 

4480 CALL HCHAR1K2.K1 , I 1 3-D) 

4490 CALL SQUNDC100, 165, 2.1196, 2 

,262,2) 

4500 NEXT 71 

4510 FOR 72=1 TO 800 

4520 NEXT Z2 

4530 IF D=0 THEN 4560 

4540 D-0 

4550 GOTO 4570 

4560 D=I 

4570 NEXT I 

4572 FOR 1=0 TO 999 

4574 NEXT I 

NEUES SPIEL ? 



4590 CALL KEY<0,KEY,ST) 

4600 SOSUB 4700 

4610 IF KEY-74 THEN 940 

4620 IF KEY078 THEN 4590 

4630 CALL CLEAR 

4640 PRINT " SEE YOU NEXT 1 




4650 


CALL SCREEN(8) 


4660 


GOTO 4660 


4670 


REM 


4680 


REM UNTERPROGRAMM ' 


4690 


REM 


4700 


CALL HCHAR<21 ,27,74) 


4710 


CALL HCHAR<21 ,29,78> 


4720 


CALL HCHAR(21 ,27,32) 


4730 


CALL HCHARC21 ,29,32) 




RETURN 


4730 




■1760 


REM MENSCH GEUONNEN 


4770 


REM 


47B0 


0=0 


4790 


PALT=P 


4800 


FOR X=0 TO 4B STEP t< 


48I0 


FOR Y=0 TO 12 STEP 4 


4820 


FOR Z=0 TO 3 


4830 


GOSUB 2310 


4840 




4850 


NEXT 2 


4860 


NEXT Y 




NEXT X 




P=PALT 


4890 


D=l 


4900 


GOTO 1890 


4910 


IF D-l THEN 4950 


4920 




4930 


11 = 1 


4940 


P=0 


4950 


RETURN 


Permanente ^<^ s , 


Kleinbuch- u™?™.i"r 


staben UJS 



K Spa- ^h^rlr^ij^.LLik'DisL, k^: 
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Assembler-Programm fur permanence Kleinbnchstaben 



DEF SMALL 
3 EQU J >0S0B 

EVEN 



System register 1 



LWPI PEG! 


Interrupt rant i 


bUf&tf 


HOVB 5P.UNFLS.flO 


E-asic-RUN-Flag 
















LI Rl.SMALLD 


Oaten ad res Be 








rn ins V 


LWPI SPLUS 


RKc"S?Sng S aul 


Intercuo 




y.,. >i4i _ 4 
































































DATA >0018,>2420 







>DQ0Q,>0D44,>4454,) 
>OODO,>OG44,>2610,> 

0000. 

DATA >0Q2S|>003S;> 
DATA >002B,>003B,> 

data >ao28,>an4ii,> 

DATA >1B24,>2428,> 



■ . ■ 

■ . -. 
!|>2'.'iB * 



Poke-Liste fur permanente Kleinbnchstaben 


100 ! P0KELI5TE 


FOR PERMfiNE'lTE; N.!'!:ir:M':HSTie€M ■ 


110 ! Intei-ru.Pt 


*t-ieber>' CftLL INIT zei-sto-t ! 


120 ! Kovirtaura 


:o,v :-!C:a.i!c, f.flM-E::»:f«naio-(i 


HaMnbucWr 1964^8 


tee MMWWV" 




176 cfiLL 1(JIT 




180 FOR mR'315 


TO "3341 ■ ■ READ POKEVRL '• CALL LOflCKfl&fi.-PWEWL*"* CHECK-CHECK 


*&BK8ft*. ■■ ■■ NEK 




ise cffl.L usnixe 


34,36, 114, 63, 240, " ",1637s, 83. "-.65,7s, 7>-:, 32, 37, 22) 




■ • FOR 1-1 To £1 ■' RCnD PKI>o NEXT I 




■■ FCR I- 1- TO 21 m FOR T-l TO 16 ■< RESD IN ■' SUM-SUM+IN . . HE 




WDTHEH PRINT "ZE1LE" J 22?* 1 3*1 . "FflLSCH flSGETIPPT" 




6.244,2,0,37.43,233,3. 131, 136,216,32.37,26 




C, 224, 131, 2lM, 1,36, 1.1, L 1 2, 2 . 22-' , 3s ■ 244, 4, 192 




n.r.s, 2:. 3,2, 6. 3. 216, 2, 1.37, 82, 2, 2 




3z,32,3fi,2. EB4 13l,2E4,--,i-:,c,--,e.a.5<; 




-.'..:■'.•-:...■:, -63, 68,56,0,40,6,60 




.s.se. 6.8.20,34.0, 0,0,0,0, 0.0.3 








,^2.e.«4.-;i ?:■ !?3-6s,s3. lie, 0,0, 0,60 




4,60,0, 4. ^ 1_.s.s3,t,, : ;,s.3,3,0,0,36 




64, 56,0, 24, 36, 32- 112 -32, 32, 32, a, 0,56, 69 




. 36.9.^4, 64, 88. 1W, 68, 69, 68, 6, 16,6, 40 




-:. K,0,;,0,«,o,o,+s, 16,0,64,64,72 




0. 72, 0, 48, Is.. 16.lt., 1C 16, 24, 6,6,6,104 




4-mo.o. -:;,•:■.*,:■■ jc ::-;.j,;. 3'-, a, 0.0, 36 


070 DATA G£,6G. 


8.36,0.0,112,72,72, 112,64,64.0,0,36,72 




,8.0,0.0,83, 108,64,64,64,3,0,0,36 




, 120.0,32,32, !2i::;3. 32,36.24, 3,6,6, 72 




2,5i,R.O,ii-,s:g.6:-.4y,4ii-lC,3,0,0,6S 




4,43,0,ii..'3,63,--.«, 16,43,63,3,0,0,136 


420 DflTH 136,36 


3, -12,3,3,0,124,3,13,32, 124,0,40,0,36 


430 DfiTFi 72,72, 






3-I2 ±\-3*.:~-A-*e 3-5.36,36,72 















TI-Programiiiierwettbewerb 



nflel werrjcn 


enn mOilich tin 




Gerats; C h4 


Die Sparine 


.11 Uhr. 


fliewial 


t;]ul-beitr,i!S 1 



PREISAUSSCHREIBEN 



Teilnehmer k™<™ 

CK 6/7 mil ££ 

Losongsprogramm *w» 



Bok WbUjans 


jartowitz Stefan Rollaieper Ralf Willing Wolfgang 


SSn uS 


««" B**« Schlecht Hoteer Wolf Rudolf 


Becgjllflliri Karl-Heinz 






Sinclair (Hoiger Schkcbt, warfburg) 


CMstiansStefiM 


10 LET I*="RTRRCNPKENE0OEAXFUTKI10TDTfl" 




20 .FOR 1 = 1 TD 2i 




30 LET ES-"" 




40 LET ft*- I* 




30 FOR ft=l TO 21 


Fran; Holger 


60 LET E*=E»+ft*<l> 


70 LET fl*=fl«(6 TD >+A*f2 TO 5) 




BO NEXT A 


s ^ aeat 


90 LET E*-E«+ft»< TD 2)+A*<4 TO l+fl«<3> 




1O0 PRINT E» 


HSiisLcr Ralph 


110 LET I«=I»(2 TO >+I*<l) 


S'i w £? 


120 NEXT I 


™*™*™p 0ree " 


Commodore (Michael Wcislau, M Hosier) 


brtaL 


IB CF*=-NE00EftXFUTKMD7DT(WTHRCNPKE- 




3B PBINT-a" 

40 ft*-MID*<CF»,I+i)+LEFT«(CF»,I> 


Colour Genie U»r flub 


Christian Klein 








8%1 Wiggensbach 


70 P-41IF K-eS THEN P-l 




bei n*=Mio*<ft*,p+a)+MiDs(n*,s,p> 


Drucke(DP510 








Clubtreffen: Neic 


110 GET ftl'lF H«-'- THEN 110 


ClubzEitung: 6 Ausjiiwn pto 
Jahr 




Mitglieder:Zur7.eit25T.eiite 


IT fiatpa uwwaaar, Hennwtiia) 

100 CALL CLEAR 








:mpre$sum 


130 OPTION BASE 1 : : DIM FELD1S[26) ,FELD2$(26] 






130 FOB 1 = 1 TO 26 :: READ FELD1$|I]:; NEXT I 




140 FOR J=1 TO 26 




150 FOR 1 = 1 TO 26 :: FELD2J(I )=FELD1$( I ) : : NEXT I 




160 Z=J 




170 DRUCK$=DRUCK$SFELD2$(Z):: FELD2$(Z}="" 
180 IF LEN<DRUCK$)=26 THEN 240 






190 Z=Z41 :: A=A4l 


S'^v^E^r 


200 IF Z=27 THEN Z=1 

210 IF FELD2$(Z)="" THEN A=A-1 




220 IF A<5 THEN 190 ELSE A=0 :: SOTO 170 




230 REM DRUCKROUTINE 




240 OPEN #1:"PI0" 




250 PRINT #1:DRUCK$ 




260 CLOSE #1 




270 DRUCK$="" 




280 NEXT J 


S^SS^l™.™*- 


290 END 
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Daten in DATA-Zeilen .SSSSSSTS S.'SST* 



i standeil EJoppelpunklen auiTUi^ Dk 

dem Pro- Anzahl dcr aufiufiilknden Zel- 

£ jch Da- then beschruDkc iliinn m'.'ik-: 

Eidcn, di- je*eiliefl> PATA-Zeile iinlcr- 

=n.ijr*r.i-- /■: .1? sind EjvnJ Jill Bi !.-> i:\ 






Mob- slanl bloibl. in solchen Fallen kiin Ar.riih- 



DATA-Zeilen fur das Colour-Genie 



DATA ::::::::::::::: I 1 I ■ 1 i ::::: E i : : : 1 1 I 

' ' EINGABE DER DATEN VDM ANWENDER 

i INPUT "DATEN-STRING"(DA* 
20 INPUT "ZEILENNUMMER-lZN 
30 PRINT 
40 GO SUB 200 
50 LIST -20 
200 ' 

204 ' UNTERPROGRAMM: INHALT VDN DA* IN DATAZEILE ZN 
206 ' 

210 IF DA*="" PRINT "STRING DA* NICHT SELEGT !": RETURN 

220 I-PEEK(!.H4OA4l+256*PEEKlt<H40A5) ' I'BASICANFANG (Z.B. 5G01H) 

225 IF I>32767 LET I-I-65336 'I ALS INTEGER 

230 ADR=PE£K(I]i-25i*P£EK<I + l> ' ADRESSE DER NAECHSTEN ZEILE 

240 ZL-PEEKCI+2>+23fc*PEEK<I+3) ■ ' MOMENTA NE ZEILENNUMMER 

250 IF ADR-0 OR ZL>ZN PRINT "ZEILENNUMMER" ;ZNs "NICHT GEFUNDEN!": 

RETURN 
260 ' 1. ADR=0, UENN BASICENDE ERREICMT. 

2. WENN JETZIGE ZLNR. IZL) > ALS GESUCHTE ZLNR. (ZN), 
DANN 1ST DIESE ZLNR. NICHT VDRHANDEN. 
270 IF NOT ZL-ZN LET I=ADR:GQTO 225 

2SO • UENN DIE JETZIGE ZLNR. NICHT DER 6ESUCHTEN ENTSPRICHT, 
DANN 1ST DIE VARIABLE I DIE ADRESSE DER NAECHSTEN BASIC 
ZEILE UND DAS GLEICHE SPIEL FAENGT NOCHhAL VON VORN AN. 

205 IF NOT PEEK!I-K»)=i36 PRINT "KEIN DAT A -STATEMENT IN ZLNR.";ZN 

: RETURN 
270 1 = 1+3 *ADR & ZLNR. S- "DATA" UERDEN 

UEBERSPRUNGEN => 5 BYTES. 
300 L=LEN(DA») 'LAENGE DES DATEN5TR I NGS . 

310 FOR J=0 TO L+l '+1, FUER n :REM" = 2 BYTES. 

320 IF PEEKII+J)-0 PRINT "UNGENUEGEND PLATZ FUERt "iPRINTDA*: 
PRINT "STRING DA* 1ST UM" iL-J+2i "BYTES ZU 
LANG" : RETURN 
330 NEXT J 
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Colour Genie 69 



370 




380 


INHALT VOM Dfl* WIRD IN DATA-ZEILE GEPQKE'D. 


3<?0 




400 


FOR J=l TOL * 


410 


POKE I+J-l,BSClMlD*<Dfl»,J,l))'DATEN IN DATAZEILE POKEN 






500 


POKE H-J-1,58 'NflCH DATENENDE *':" 


310 


POKE I+J,147 'UND REM. (147=KEM-T0KEN) 


520 


RETURN 


Pie 


Snderunnpn fi\r Mcthado 2 (relative Zeilenadressierunal : 


DELETE 240-2B5 


120 


INPUT "WIEV1ELTE DATAZEILE"; DZ 


215 


Zft=0 


240 


TN=PEEK(I+4> 'TOKEN NACH ZLNR. 


250 


IF ADR=0 PRINT DZ; " ■ DATAZEILE NIGHT VDRBANDEN !"; RETURN 


260 


IF TN-136 Z-Z+i:IF Z=DZ GOTO 290' 13i-DftTfi- TOKEN; Z=ZAEHLER 


270 


I=ADR:GOTO 225 


flnmerkunai Beide Programme ^unktinnieren nur dann, wenn dlrekt 




hinter der Zei 1 ennuiner das DATA -Statement stent, da 




dieses extra a&gefraat wird (Zlnr. 235 bzw. 2401, 




d. h. es dar* beim Listen awischen der Zlnr. und dem 




DATA- Statement nur ein Zwischenraum eein und nicht 











COMPUTERGRAFIK 

I'nd wai dazu gebiauthl wird 



(en Qimpuleigiafik in CAD vicl Sthreibarbeit und Spci- billiicMe l.isunj;, Jie Sit aul jc- 
Svstcincn iind Beige von Bu- cherptiti Hici niir tin kurres den FailnachcinigcrZeildurctl 

Kuizbciicbt dieses Problem ab- ciiin.k i:'.ft".?5. urn tintn UeunNcukaufal*>g]eicbeinen 






i und Lehrtiuch ca. 800.- 



initiwrl un.-l lib- CompultrfKU 
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Leserforum ?o 



LESERFRAGEN 

■■■■■■■■■■ 



60 Zeichen beim Tl 






Floppy VC 1541 



trloiBi. I:s ht mir Proeran 



Wo gibt es das 99'er S™^" ta m i«taMSS 
Magazin? ^ ^tXr™. 



.iliair l'.wfa;!i Sf.C-Siiii 



Schreiben Sie 


HIS 




weim Sie Fragen 


haben 






















Fran/Hu^n Maires Apple n 






SlcphanKonig CM 






RolfKnorre ZXSpeci 


u 










Marcus Schneide r CnlmirG 






























t™:*072H/429«. 







Mehr Zeichen beim 

m amici- .^ drt , lc Mflaliclitcjl blitbe _. »_«*»..« 
Iwerden. dBm „„ ch d=r El . werb Einer ZX-SpeCIIURI 



mLosctieneinErDateitn 



S""hln e z™i=nv™chub Umlaute beim 

sowie den Wagenrikkkuf eia- ZX-SpeCtTUHl 
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Leserforum 71 



Harte Strafen 
ftir Hacker 




MachenSiemehraus 
«-«?: lhremC-64! 




Der 

Bewerbungs- 
ratgeber 
fur Studenlen 

Ein Buch mil kankratsn 
Anleitungen, elnem um- 
fasssndsn Oberblick iiber 

ladlreichsn Lrtaraturan- 
flaBsn una Sijcherhimvei- 


Wir prasentieren 
GENIE 16 B 

NEuTrr 

TCS-PLUSKAFTTE 
STlIls/ms 


ISBN 3-934153-00-0 


72 MHz Svstontakt. 



KLEINANZEIGEN 

I I - ■■■■■■■■■■■■■■ 

■ 

KLEINANZEIGEN! 

tmm'f 

Sinclair • •«. J «H-SpMnin>JJ fws 

ZX 81 + Spectrum """•"":" 




Computer Korrtakt 1 1 



J Spactaim ledea Prue'air 



= ^ S M i 



Der INltttfatt M$£ 



»S»ss 


11111111 


VC 20, C 64 



JHuAlk-SgnlheiigeM' 



fur den Commodore 64 




Dasdarfdochwohlnichtwahrsein 

■ ■.■ lie Spiela aiif Cass tn Gaschenkverpack. .:; i : . m le 

Iss aber wahr <* 
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KLEINANZEIGEN 



STAUBSCHUTZHULLEN 

schiteen Hirer Computer 
Commodore 64, VC20, 
Floppy, Cas.-Slation, Moni- 
tor und Drucket. Je Stock 
nur DM 16.-, ab 3 Teile 
DM14.50, Porto + 3.-. 
Yco-HIillen, Kruse, Postt. 
1233, 2032 Uetersan, Abt. 




Bestellschein fiir private Kleinanzeigen 


































MiMMwuiMih*** 


ES.XS%iSX^lS'. D ^,T- 


ES^Si^Jr™-"- 1 "" i 


| 


"■™" Valq mif-Ehcrlr CdbH g 


SIMM 
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JFUNDGRUBE 



Fundgrube ? 6 

Der neue ^u^Tei'nM-w'.pS; 

cpc 464 rc;s;;ir.r;: 

■ von Schneider f» ^7 f ! irae Jr;Sl s !;l,rf 



Einzigartiges SX^SSf!-,^! 
Disketten- »* CmZ 11 ^ »-, 
Archivsystem 



ST-SchlibEn'pkn" '" 


MESSEN 






25 .09. -28 .09.8-1 Bcrlbi-D 








Hobby Eletainmk .-- 




IL>E) 


COMPAS S4 - KonfeTenz und 

-.1 "i.iiiShnp fA) 


40 H 769°A™uSl P TeS 




ELCKTROTBCHMK "84 






wa^oriamai-p™*. 








Floppy far Wir suchen " ^=1,^™ 

ZX -Spectrum Apple-Benutzer " Sw™^'* 

Di; Firms PrafnoftausOsiia- Zwecfcs GninduOB sioer An- -Das Programm nucl die STAR}, abet nicht In Fora 

briicfc hiiiol oniliicl: sm Flippy- pic-iiscr-Ciraiip suthin *:r in . ■-.■■ .. ;{f!M. Es unverstamjlicrien Kurzeln 



Fundgrube 



Gerade noch eingetroffen 
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Fundgrube is 

ErgSnzung zu 

unserem Program m 

Car-Race 




E3=- 

Fur Sinclair- 5*1™™^,, uw^ ^- rink Sc£ 

Fans .™- D - sl(Ck . e : , - e '. , i?." lich - a " ^1UD- 




Fundgrube 



Software- I LOAD ZX81-Program into SPECTRUM 

Erfahrungsaustausch !s|||lg^rr j^^^gr 



5 TEod" I M>CHAEL, -.:::. NAUJOKS sassS 

LteltaumS For-next-read-computer-kontakt 



idabtiraiQic sehnfi-n. v>l! 



AulkHmng der Miielieci 



Kampsn 17, 4770 Soesl 



^i^ihrHobhv^f- ™f ;i ' '-'..;";.' 






Achtung ZX-Spectrum User! 

saslnzlge Joystick- interface DE l\U 

ftdmhgtfwndBmBus. llUf 85.- DM 






ilig-roschaHemat. 59.- DM 



